//Murray Math

SqW=10;//Square Width (Days)..4 thru 256
MM=1;//Start Month...1 thru 12
DD=1;//Start Day... 1 thru 31
YY=2003;//Start Year

T0=LastValue(ValueWhen(Day()==DD AND
Month()==MM AND
Year()==YY,Cum(1)));

Sqrs=int((LastValue(Cum(1))-T0)/SqW)-1;

S0=T0+(Sqrs*SqW);

Lo=LastValue(ValueWhen(Cum(1)==S0+SqW-1,
LLV(Min(H,L),SqW)));

Hi=LastValue(ValueWhen(Cum(1)==S0+SqW-1,
HHV(Max(H,L),SqW)));

Sf=IIf(Hi>25,IIf(log(0.4*Hi)/log(10)-
int(log(0.4*Hi)/log(10))>0,
exp(log(10)*(int(log(0.4*Hi)/log(10))+1)),
exp(log(10)*(int(log(0.4*Hi)/log(10))))),
100*exp(log(8)*(int(log(0.005*Hi)/log(8)))));

N=
IIf(log(Sf/(Hi-Lo))/log(8)<=0,0,
IIf(frac(log(Sf/(Hi-Lo))/log(8))==0,
int(log(Sf/(Hi-Lo))/log(8)),
int(log(Sf/(Hi-Lo))/log(8))+1));

Si=Sf*exp(-N*log(8));

M=int(((1/log(2))*log((Hi-Lo)/Si))+.00001);

I=round(((Hi+Lo)*.5)/(Si*exp((M-1)*log(2))));

B=(I-1)*Si*exp((M-1)*log(2));
TT=(I+1)*Si*exp((M-1)*log(2));

Er=IIf(Hi-TT>0.25*(TT-B) OR
B-Lo>0.25*(TT-B),1,0);

MM=IIf(Er=0,M,IIf(Er=1 AND M<2,M+1,0));
NN=IIf(Er=0,N,IIf(Er=1 AND M<2,N,N-1));

Si=Sf*exp(-NN*log(8));

I=round(((Hi+Lo)*.5)/
(Si*exp((MM-1)*log(2))));

B=ValueWhen(Cum(1)>=S0,
(I-1)*Si*exp((MM-1)*log(2)));

TT=ValueWhen(Cum(1)>=S0,
(I+1)*Si*exp((MM-1)*log(2)));


L1=ValueWhen(Cum(1)>=S0,
B+(0.125*(TT-B)));

L2=ValueWhen(Cum(1)>=S0,
B+(2.0*(0.125*(TT-B))));

L3=ValueWhen(Cum(1)>=S0,
B+(3.0*(0.125*(TT-B))));

L4=ValueWhen(Cum(1)>=S0,
B+(4.0*(0.125*(TT-B))));

L5=ValueWhen(Cum(1)>=S0,
B+(5.0*(0.125*(TT-B))));

L6=ValueWhen(Cum(1)>=S0,
B+(6.0*(0.125*(TT-B))));

L7=ValueWhen(Cum(1)>=S0,
B+(7.0*(0.125*(TT-B))));

Plot(B,"B",colorWhite,styleLine);
Plot(TT,"TT",colorWhite,styleLine);

Plot(L1,"",colorRed,styleLine);
Plot(L2,"l2",colorYellow,styleLine);
Plot(L3,"l3",colorBlue,styleLine);
Plot(L4,"l4",colorYellow,styleLine);
Plot(L5,"l5",colorBrightGreen,styleLine);
Plot(L6,"l6",colorBlue,styleLine);
Plot(L7,"l7",colorBrightGreen,styleLine);
Plot(C,"close",colorBlack,styleCandle);

Title=Name()+"\n"+EncodeColor(colorWhite)+"0/8th
="+EncodeColor(colorBlack)+WriteVal(b,1.2)+"\n"+EncodeColor(colorRed)+"1
/8th
="+EncodeColor(colorBlack)+WriteVal(L1,1.2)+"\n"+EncodeColor(colorYellow
)+"2/8th
="+EncodeColor(colorBlack)+WriteVal(L2,1.2)+"\n"+EncodeColor(colorBlue)+
"3/8th
="+EncodeColor(colorBlack)+WriteVal(L3,1.2)+"\n"+EncodeColor(colorYellow
)+"4/8th
="+EncodeColor(colorBlack)+WriteVal(L4,1.2)+"\n"+EncodeColor(colorBright
Green)+"5/8th
="+EncodeColor(colorBlack)+WriteVal(L5,1.2)+"\n"+EncodeColor(colorBlue)+
"6/8th
="+EncodeColor(colorBlack)+WriteVal(L6,1.2)+"\n"+EncodeColor(colorBright
Green)+"7/8th
="+EncodeColor(colorBlack)+WriteVal(L7,1.2)+"\n"+EncodeColor(colorWhite)
+"Top
= "+EncodeColor(colorBlack)+WriteVal(tt,1.2);

